unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DesignHookUtils, Buttons, StdCtrls,
  ExtCtrls,  Spin, RzPanel, RzButton, Mask, RzEdit, RzBtnEdt, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Tool_1: TRzToolbar;
    Btnx_1: TRzToolButton;
    Btnx_2: TRzToolButton;
    Edit_1: TRzButtonEdit;
    Edit_2: TRzEdit;
    RzPanel1: TRzPanel;
    pm1: TPopupMenu;
    Menu_hi1: TMenuItem;
    shp1: TShape;
    procedure Btnx_1Click(Sender: TObject);
    procedure Btnx_2Click(Sender: TObject);
    procedure Edit_1ButtonClick(Sender: TObject);
    procedure Menu_hi1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Btnx_1Click(Sender: TObject);
begin
  BeginDesign(Self, panel1);
end;

procedure TForm1.Btnx_2Click(Sender: TObject);
begin
  EndDesign(Self);
end;

procedure TForm1.Edit_1ButtonClick(Sender: TObject);
begin
  ShowMessage('edit_1 button click.');
end;

procedure TForm1.Menu_hi1Click(Sender: TObject);
begin
  ShowMessage('i am test click.');
end;

end.
